demand /string
supplied-by
\ Add string to start of `c-addr u` and return remaining space.
: s++ ( c-addr u  c-addr2 u2 -- c-addr' u' )
	2over swap >r  over u< abort" buffer overflow"
	2dup r> swap chars move  nip /string ;
